home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / p / p1.bat < prev    next >
DOS Batch File  |  1993-01-28  |  9KB  |  631 lines

  1. @echo off
  2. cls
  3.  
  4. :P1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO P2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :P2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  36.  
  37. IF ERRORLEVEL 24 GOTO QUIT
  38. IF ERRORLEVEL 23 GOTO P1
  39. IF ERRORLEVEL 22 GOTO P3
  40. IF ERRORLEVEL 21 GOTO 42
  41. IF ERRORLEVEL 20 GOTO 41
  42. IF ERRORLEVEL 19 GOTO 40
  43. IF ERRORLEVEL 18 GOTO 39
  44. IF ERRORLEVEL 17 GOTO 38
  45. IF ERRORLEVEL 16 GOTO 37
  46. IF ERRORLEVEL 15 GOTO 36
  47. IF ERRORLEVEL 14 GOTO 35
  48. IF ERRORLEVEL 13 GOTO 34
  49. IF ERRORLEVEL 12 GOTO 33
  50. IF ERRORLEVEL 11 GOTO 32
  51. IF ERRORLEVEL 10 GOTO 31
  52. IF ERRORLEVEL 9 GOTO 30
  53. IF ERRORLEVEL 8 GOTO 29
  54. IF ERRORLEVEL 7 GOTO 28
  55. IF ERRORLEVEL 6 GOTO 27
  56. IF ERRORLEVEL 5 GOTO 26
  57. IF ERRORLEVEL 4 GOTO 25
  58. IF ERRORLEVEL 3 GOTO 24
  59. IF ERRORLEVEL 2 GOTO 23
  60. IF ERRORLEVEL 1 GOTO 22
  61.  
  62.  
  63. :P3
  64. TYPE 3.ANS
  65. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  66.  
  67. IF ERRORLEVEL 24 GOTO QUIT
  68. IF ERRORLEVEL 23 GOTO P2
  69. IF ERRORLEVEL 22 GOTO P4
  70. IF ERRORLEVEL 21 GOTO 63
  71. IF ERRORLEVEL 20 GOTO 62
  72. IF ERRORLEVEL 19 GOTO 61
  73. IF ERRORLEVEL 18 GOTO 60
  74. IF ERRORLEVEL 17 GOTO 59
  75. IF ERRORLEVEL 16 GOTO 58
  76. IF ERRORLEVEL 15 GOTO 57
  77. IF ERRORLEVEL 14 GOTO 56
  78. IF ERRORLEVEL 13 GOTO 55
  79. IF ERRORLEVEL 12 GOTO 54
  80. IF ERRORLEVEL 11 GOTO 53
  81. IF ERRORLEVEL 10 GOTO 52
  82. IF ERRORLEVEL 9 GOTO 51
  83. IF ERRORLEVEL 8 GOTO 50
  84. IF ERRORLEVEL 7 GOTO 49
  85. IF ERRORLEVEL 6 GOTO 48
  86. IF ERRORLEVEL 5 GOTO 47
  87. IF ERRORLEVEL 4 GOTO 46
  88. IF ERRORLEVEL 3 GOTO 45
  89. IF ERRORLEVEL 2 GOTO 44
  90. IF ERRORLEVEL 1 GOTO 43
  91.  
  92.  
  93.  
  94. :P4
  95. TYPE 4.ANS
  96. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  97.  
  98. IF ERRORLEVEL 24 GOTO QUIT
  99. IF ERRORLEVEL 23 GOTO P3
  100. IF ERRORLEVEL 22 GOTO P5
  101. IF ERRORLEVEL 21 GOTO 84
  102. IF ERRORLEVEL 20 GOTO 83
  103. IF ERRORLEVEL 19 GOTO 82
  104. IF ERRORLEVEL 18 GOTO 81
  105. IF ERRORLEVEL 17 GOTO 80
  106. IF ERRORLEVEL 16 GOTO 79
  107. IF ERRORLEVEL 15 GOTO 78
  108. IF ERRORLEVEL 14 GOTO 77
  109. IF ERRORLEVEL 13 GOTO 76
  110. IF ERRORLEVEL 12 GOTO 75
  111. IF ERRORLEVEL 11 GOTO 74
  112. IF ERRORLEVEL 10 GOTO 73
  113. IF ERRORLEVEL 9 GOTO 72
  114. IF ERRORLEVEL 8 GOTO 71
  115. IF ERRORLEVEL 7 GOTO 70
  116. IF ERRORLEVEL 6 GOTO 69
  117. IF ERRORLEVEL 5 GOTO 68
  118. IF ERRORLEVEL 4 GOTO 67
  119. IF ERRORLEVEL 3 GOTO 66
  120. IF ERRORLEVEL 2 GOTO 65
  121. IF ERRORLEVEL 1 GOTO 64
  122.  
  123. :P5
  124. TYPE 5.ANS
  125. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  126.  
  127. IF ERRORLEVEL 24 GOTO QUIT
  128. IF ERRORLEVEL 23 GOTO P4
  129. IF ERRORLEVEL 22 GOTO P6
  130. IF ERRORLEVEL 21 GOTO 105
  131. IF ERRORLEVEL 20 GOTO 104
  132. IF ERRORLEVEL 19 GOTO 103
  133. IF ERRORLEVEL 18 GOTO 102
  134. IF ERRORLEVEL 17 GOTO 101
  135. IF ERRORLEVEL 16 GOTO 100
  136. IF ERRORLEVEL 15 GOTO 99
  137. IF ERRORLEVEL 14 GOTO 98
  138. IF ERRORLEVEL 13 GOTO 97
  139. IF ERRORLEVEL 12 GOTO 96
  140. IF ERRORLEVEL 11 GOTO 95
  141. IF ERRORLEVEL 10 GOTO 94
  142. IF ERRORLEVEL 9 GOTO 93
  143. IF ERRORLEVEL 8 GOTO 92
  144. IF ERRORLEVEL 7 GOTO 91
  145. IF ERRORLEVEL 6 GOTO 90
  146. IF ERRORLEVEL 5 GOTO 89
  147. IF ERRORLEVEL 4 GOTO 88
  148. IF ERRORLEVEL 3 GOTO 87
  149. IF ERRORLEVEL 2 GOTO 86
  150. IF ERRORLEVEL 1 GOTO 85
  151.  
  152. :P6
  153. TYPE 6.ANS
  154. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  155.  
  156. IF ERRORLEVEL 24 GOTO QUIT
  157. IF ERRORLEVEL 23 GOTO P5
  158. IF ERRORLEVEL 22 GOTO P7
  159. IF ERRORLEVEL 21 GOTO 126
  160. IF ERRORLEVEL 20 GOTO 125
  161. IF ERRORLEVEL 19 GOTO 124
  162. IF ERRORLEVEL 18 GOTO 123
  163. IF ERRORLEVEL 17 GOTO 122
  164. IF ERRORLEVEL 16 GOTO 121
  165. IF ERRORLEVEL 15 GOTO 120
  166. IF ERRORLEVEL 14 GOTO 119
  167. IF ERRORLEVEL 13 GOTO 118
  168. IF ERRORLEVEL 12 GOTO 117
  169. IF ERRORLEVEL 11 GOTO 116
  170. IF ERRORLEVEL 10 GOTO 115
  171. IF ERRORLEVEL 9 GOTO 114
  172. IF ERRORLEVEL 8 GOTO 113
  173. IF ERRORLEVEL 7 GOTO 112
  174. IF ERRORLEVEL 6 GOTO 111
  175. IF ERRORLEVEL 5 GOTO 110
  176. IF ERRORLEVEL 4 GOTO 109
  177. IF ERRORLEVEL 3 GOTO 108
  178. IF ERRORLEVEL 2 GOTO 107
  179. IF ERRORLEVEL 1 GOTO 106
  180.  
  181. :P7
  182. TYPE 7.ANS
  183. ASK /FE "" ABCDEFGHIJKLMN23
  184.  
  185. IF ERRORLEVEL 16 GOTO QUIT
  186. IF ERRORLEVEL 15 GOTO P6
  187. IF ERRORLEVEL 14 GOTO 140
  188. IF ERRORLEVEL 13 GOTO 139
  189. IF ERRORLEVEL 12 GOTO 138
  190. IF ERRORLEVEL 11 GOTO 137
  191. IF ERRORLEVEL 10 GOTO 136
  192. IF ERRORLEVEL 9 GOTO 135
  193. IF ERRORLEVEL 8 GOTO 134
  194. IF ERRORLEVEL 7 GOTO 133
  195. IF ERRORLEVEL 6 GOTO 132
  196. IF ERRORLEVEL 5 GOTO 131
  197. IF ERRORLEVEL 4 GOTO 130
  198. IF ERRORLEVEL 3 GOTO 129
  199. IF ERRORLEVEL 2 GOTO 128
  200. IF ERRORLEVEL 1 GOTO 127
  201.  
  202.  
  203. :1
  204. CSHOW P11.GIF+
  205. GOTO P1
  206. :2
  207. CSHOW P2NUD1.GIF+
  208. GOTO P1
  209. :3
  210. CSHOW P2NUD2.GIF+
  211. GOTO P1
  212. :4
  213. CSHOW P2NUD3.GIF+
  214. GOTO P1
  215. :5
  216. CSHOW P4_C_02.GIF+
  217. GOTO P1
  218. :6
  219. CSHOW P4_C_03.GIF+
  220. GOTO P1
  221. :7
  222. CSHOW PA.GIF+
  223. GOTO P1
  224. :8
  225. CSHOW PALM_4.GIF+
  226. GOTO P1
  227. :9
  228. CSHOW PAMELA.GIF+
  229. GOTO P1
  230. :10
  231. CSHOW PANTIES.GIF+
  232. GOTO P1
  233. :11
  234. CSHOW PANTS_1.GIF+
  235. GOTO P1
  236. :12
  237. CSHOW PANTS_2.GIF+
  238. GOTO P1
  239. :13
  240. CSHOW PARLOR.GIF+
  241. GOTO P1
  242. :14
  243. CSHOW PARTS.GIF+
  244. GOTO P1
  245. :15
  246. CSHOW PARTY3.GIF+
  247. GOTO P1
  248. :16
  249. CSHOW PARTY4.GIF+
  250. GOTO P1
  251. :17
  252. CSHOW PATRIC.GIF+
  253. GOTO P1
  254. :18
  255. CSHOW PB0190.GIF+
  256. GOTO P1
  257. :19
  258. CSHOW PB108.GIF+
  259. GOTO P1
  260. :20
  261. CSHOW PB180.GIF+
  262. GOTO P1
  263. :21
  264. CSHOW PB330.GIF+
  265. GOTO P1
  266. :22
  267. CSHOW PB347.GIF+
  268. GOTO P2
  269. :23
  270. CSHOW PB354.GIF+
  271. GOTO P2
  272. :24
  273. CSHOW PBL003.GIF+
  274. GOTO P2
  275. :25
  276. CSHOW PBSTRIP.GIF+
  277. GOTO P2
  278. :26
  279. CSHOW PDRNKR6.GIF+
  280. GOTO P2
  281. :27
  282. CSHOW PDUFFEK2.GIF+
  283. GOTO P2
  284. :28
  285. CSHOW PEGSUE9.GIF+
  286. GOTO P2
  287. :29
  288. CSHOW PENCIL.GIF+
  289. GOTO P2
  290. :30
  291. CSHOW PEPPER12.GIF+
  292. GOTO P2
  293. :31
  294. CSHOW PERKY012.GIF+
  295. GOTO P2
  296. :32
  297. CSHOW PESO_1.GIF+
  298. GOTO P2
  299. :33
  300. CSHOW PGN.GIF+
  301. GOTO P2
  302. :34
  303. CSHOW PGN003.GIF+
  304. GOTO P2
  305. :35
  306. CSHOW PGN005.GIF+
  307. GOTO P2
  308. :36
  309. CSHOW PGN013.GIF+
  310. GOTO P2
  311. :37
  312. CSHOW PGN019.GIF+
  313. GOTO P2
  314. :38
  315. CSHOW PGN035.GIF+
  316. GOTO P2
  317. :39
  318. CSHOW PGN038.GIF+
  319. GOTO P2
  320. :40
  321. CSHOW PGN049.GIF+
  322. GOTO P2
  323. :41
  324. CSHOW PGN066.GIF+
  325. GOTO P2
  326. :42
  327. CSHOW PGN069.GIF+
  328. GOTO P2
  329. :43
  330. CSHOW PGN073.GIF+
  331. GOTO P3
  332. :44
  333. CSHOW PGN077.GIF+
  334. GOTO P3
  335. :45
  336. CSHOW PGN084.GIF+
  337. GOTO P3
  338. :46
  339. CSHOW PGN085.GIF+
  340. GOTO P3
  341. :47
  342. CSHOW PGN097.GIF+
  343. GOTO P3
  344. :48
  345. CSHOW PGN109.GIF+
  346. GOTO P3
  347. :49
  348. CSHOW PGN121.GIF+
  349. GOTO P3
  350. :50
  351. CSHOW PGN128.GIF+
  352. GOTO P3
  353. :51
  354. CSHOW PGN129.GIF+
  355. GOTO P3
  356. :52
  357. CSHOW PGN130.GIF+
  358. GOTO P3
  359. :53
  360. CSHOW PGN133.GIF+
  361. GOTO P3
  362. :54
  363. CSHOW PGN135.GIF+
  364. GOTO P3
  365. :55
  366. CSHOW PGN171.GIF+
  367. GOTO P3
  368. :56
  369. CSHOW PGN179.GIF+
  370. GOTO P3
  371. :57
  372. CSHOW PGN180.GIF+
  373. GOTO P3
  374. :58
  375. CSHOW PGN181.GIF+
  376. GOTO P3
  377. :59
  378. CSHOW PGN189.GIF+
  379. GOTO P3
  380. :60
  381. CSHOW PGN190.GIF+
  382. GOTO P3
  383. :61
  384. CSHOW PGN191.GIF+
  385. GOTO P3
  386. :62
  387. CSHOW PGN207.GIF+
  388. GOTO P3
  389. :63
  390. CSHOW PGN262.GIF+
  391. GOTO P3
  392. :64
  393. CSHOW PGN263.GIF+
  394. GOTO P4
  395. :65
  396. CSHOW PGN271.GIF+
  397. GOTO P4
  398. :66
  399. CSHOW PGN315.GIF+
  400. GOTO P4
  401. :67
  402. CSHOW PGN316.GIF+
  403. GOTO P4
  404. :68
  405. CSHOW PGN330.GIF+
  406. GOTO P4
  407. :69
  408. CSHOW PGN354.GIF+
  409. GOTO P4
  410. :70
  411. CSHOW PGN435.GIF+
  412. GOTO P4
  413. :71
  414. CSHOW PGN454.GIF+
  415. GOTO P4
  416. :72
  417. CSHOW PGN581.GIF+
  418. GOTO P4
  419. :73
  420. CSHOW PHONSEX4.GIF+
  421. GOTO P4
  422. :74
  423. CSHOW PIANO1.GIF+
  424. GOTO P4
  425. :75
  426. CSHOW PIANO5.GIF+
  427. GOTO P4
  428. :76
  429. CSHOW PIANO6.GIF+
  430. GOTO P4
  431. :77
  432. CSHOW PIANO7.GIF+
  433. GOTO P4
  434. :78
  435. CSHOW PIANOLES.GIF+
  436. GOTO P4
  437. :79
  438. CSHOW PIGTAIL.GIF+
  439. GOTO P4
  440. :80
  441. CSHOW PIGTAIL7.GIF+
  442. GOTO P4
  443. :81
  444. CSHOW PINK.GIF+
  445. GOTO P4
  446. :82
  447. CSHOW PINK2.GIF+
  448. GOTO P4
  449. :83
  450. CSHOW PINK_002.GIF+
  451. GOTO P4
  452. :84
  453. CSHOW PINK_003.GIF+
  454. GOTO P4
  455. :85
  456. CSHOW PISSER.GIF+
  457. GOTO P5
  458. :86
  459. CSHOW PIX01.GIF+
  460. GOTO P5
  461. :87
  462. CSHOW PL91.GIF+
  463. GOTO P5
  464. :88
  465. CSHOW PLATEAU.GIF+
  466. GOTO P5
  467. :89
  468. CSHOW PLATO2.GIF+
  469. GOTO P5
  470. :90
  471. CSHOW PLOW_8.GIF+
  472. GOTO P5
  473. :91
  474. CSHOW PLSUM53.GIF+
  475. GOTO P5
  476. :92
  477. CSHOW PMILLER.GIF+
  478. GOTO P5
  479. :93
  480. CSHOW PNKSHEET.GIF+
  481. GOTO P5
  482. :94
  483. CSHOW POKEIT3.GIF+
  484. GOTO P5
  485. :95
  486. CSHOW POOLPET.GIF+
  487. GOTO P5
  488. :96
  489. CSHOW POOLPET2.GIF+
  490. GOTO P5
  491. :97
  492. CSHOW POOLPET5.GIF+
  493. GOTO P5
  494. :98
  495. CSHOW POOLPET8.GIF+
  496. GOTO P5
  497. :99
  498. CSHOW PORNO4.GIF+
  499. GOTO P5
  500. :100
  501. CSHOW PORNQN7.GIF+
  502. GOTO P5
  503. :101
  504. CSHOW PORSCHE4.GIF+
  505. GOTO P5
  506. :102
  507. CSHOW PREG19A.GIF+
  508. GOTO P5
  509. :103
  510. CSHOW PREG22.GIF+
  511. GOTO P5
  512. :104
  513. CSHOW PREG_1.GIF+
  514. GOTO P5
  515. :105
  516. CSHOW PREG_10.GIF+
  517. GOTO P5
  518. :106
  519. CSHOW PREG_14.GIF+
  520. GOTO P6
  521. :107
  522. CSHOW PREG_15.GIF+
  523. GOTO P6
  524. :108
  525. CSHOW PREG_16.GIF+
  526. GOTO P6
  527. :109
  528. CSHOW PREG_17.GIF+
  529. GOTO P6
  530. :110
  531. CSHOW PREVW44.GIF+
  532. GOTO P6
  533. :111
  534. CSHOW PRIZM6.GIF+
  535. GOTO P6
  536. :112
  537. CSHOW PROFIT_1.GIF+
  538. GOTO P6
  539. :113
  540. CSHOW PSCX0020.GIF+
  541. GOTO P6
  542. :114
  543. CSHOW PSCX0026.GIF+
  544. GOTO P6
  545. :115
  546. CSHOW PSCX0079.GIF+
  547. GOTO P6
  548. :116
  549. CSHOW PSCX0082.GIF+
  550. GOTO P6
  551. :117
  552. CSHOW PSCX0083.GIF+
  553. GOTO P6
  554. :118
  555. CSHOW PSCX0084.GIF+
  556. GOTO P6
  557. :119
  558. CSHOW PSCX0088.GIF+
  559. GOTO P6
  560. :120
  561. CSHOW PSCX0113.GIF+
  562. GOTO P6
  563. :121
  564. CSHOW PSCX0137.GIF+
  565. GOTO P6
  566. :122
  567. CSHOW PSHRX040.GIF+
  568. GOTO P6
  569. :123
  570. CSHOW PSHRX060.GIF+
  571. GOTO P6
  572. :124
  573. CSHOW PSHRX068.GIF+
  574. GOTO P6
  575. :125
  576. CSHOW PSHRX083.GIF+
  577. GOTO P6
  578. :126
  579. CSHOW PS_X_016.GIF+
  580. GOTO P6
  581. :127
  582. CSHOW PS_X_119.GIF+
  583. GOTO P7
  584. :128
  585. CSHOW PS_X_127.GIF+
  586. GOTO P7
  587. :129
  588. CSHOW PS_X_159.GIF+
  589. GOTO P7
  590. :130
  591. CSHOW PS_X_229.GIF+
  592. GOTO P7
  593. :131
  594. CSHOW PS_X_251.GIF+
  595. GOTO P7
  596. :132
  597. CSHOW PS_X_318.GIF+
  598. GOTO P7
  599. :133
  600. CSHOW PS_X_447.GIF+
  601. GOTO P7
  602. :134
  603. CSHOW PS_X_452.GIF+
  604. GOTO P7
  605. :135
  606. CSHOW PURPLE1T.GIF+
  607. GOTO P7
  608. :136
  609. CSHOW PUSH!_1.GIF+
  610. GOTO P7
  611. :137
  612. CSHOW PUSH!_2.GIF+
  613. GOTO P7
  614. :138
  615. CSHOW PUSHEMUP.GIF+
  616. GOTO P7
  617. :139
  618. CSHOW PUSSY.GIF+
  619. GOTO P7
  620. :140
  621. CSHOW P_CABLE1.GIF+
  622. GOTO P7
  623.  
  624. :SELECTION
  625. CD\SETUP
  626. FSTORM31
  627.  
  628. :QUIT
  629. CD\SETUP
  630. FSTORM31
  631.